home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ My Computer Drives 1.xpl < prev    next >
Text File  |  2001-01-21  |  3KB  |  79 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="3"
  3. "COUNT"="4"
  4. "UIPATH 1"="Appearance\Desktop\Icons\'My Computer' Context Menu"
  5. "UIPATH 2"="Appearance\Files&Folders\'My Computer' Context Menu"
  6. "NAME"="My Computer Drives #1"
  7. "VERSION"="1.01"
  8. "LANGUAGE"="VBScript"
  9. "TEXT 1"="1) Name:"
  10. "TEXT 2"="1) Command:"
  11. "TEXT 3"="2) Name:"
  12. "TEXT 4"="2) Command:"
  13. "DESCRIPTION 1"="This plug-in can be used to add two Drives to the context menu that appears if you right-click on the My Computer desktop icon."
  14. "DESCRIPTION 2"="First, enter a name for the location (e.g. "Go To Drive A") in the field "Name". Then browse to the location of explorer.exe [usually C:\Windows] and add [after a space] "A:\" [no quotes] in the "Command" space."
  15. "DESCRIPTION 3"="To remove the command again, clear both the "Name" and the "Command" field and press "Apply"."
  16. "DESCRIPTION 4"="An example:"
  17. "DESCRIPTION 5"="1) Name:        Go To Drive A"
  18. "DESCRIPTION 6"="1) Command:  C:\Windows\explorer.exe A:\"
  19. "DESCRIPTION 7"=""
  20. "DESCRIPTION 8"="To list more drives, see next plugin."
  21. "AUTHOR"="Ojatex@aol.com"
  22. "CONTACTURL"="http://members.aol.com/ojatex/"
  23. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  24. "COMMENT 1"="For X-Setup program information, go to http://www.xteq.com"
  25. "COMMENT 2"="Got Secrets? Use a portable drive."
  26.  
  27.  
  28. sPath1="HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\Shell\XQXSETCMD1\"
  29. sPath2="HKCR\CLSID\{20D04FE0-3AEA-1069-A2D8-08002B30309D}\Shell\XQXSETCMD2\"
  30. sCMD="Command\@"
  31. Sub Plugin_Initialize
  32.  s=RegReadValue(sPath1 & sCMD)
  33.  if len(s)>0 then
  34.   s=RegReadValue(sPath1 & "@")
  35.   SetUIElement 1,s
  36.  
  37.   s=RegReadValue(sPath1 & sCMD)
  38.   SetUIElement 2,s
  39.  end if
  40.  
  41.  s=RegReadValue(sPath2 & sCMD)
  42.  if len(s)>0 then
  43.   s=RegReadValue(sPath2 & "@")
  44.   SetUIElement 3,s
  45.  
  46.   s=RegReadValue(sPath2 & sCMD)
  47.   SetUIElement 4,s
  48.  end if
  49. End Sub
  50.  
  51. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  52.  s1=GetUIElement(1)
  53.  s2=GetUIElement(2)
  54.  if len(s1)>0 or len(s2)>0 then
  55.   Call RegWriteValue(sPath1 & sCMD,s2,1)
  56.   Call RegWriteValue(sPath1 & "@",s1,1)
  57.  else
  58.   if IsEmpty(RegReadValue(sPath1 & sCMD))=false then
  59.    Call RegDeletePath(sPath1 & "Command")
  60.    Call RegDeletePath(sPath1)
  61.   end if
  62.  end if
  63.  
  64.  s1=GetUIElement(3)
  65.  s2=GetUIElement(4)
  66.  if len(s1)>0 or len(s2)>0 then
  67.   Call RegWriteValue(sPath2 & sCMD,s2,1)
  68.   Call RegWriteValue(sPath2 & "@",s1,1)
  69.  else
  70.   if IsEmpty(RegReadValue(sPath2 & sCMD))=false then
  71.    Call RegDeletePath(sPath2 & "Command")
  72.    Call RegDeletePath(sPath2)
  73.   end if
  74.  end if
  75. End Sub
  76.  
  77. Sub Plugin_Terminate 
  78. End Sub
  79.